home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
multlang.zip
/
MSTRLST.DFM
/
MSTRLST.txt
Wrap
Text File
|
1996-06-10
|
3KB
|
115 lines
object StrListDlg: TStrListDlg
Left = 310
Top = 204
Width = 383
Height = 256
Caption = 'String lists'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 4
Top = 4
Width = 361
Height = 93
Alignment = taCenter
AutoSize = False
Caption =
'The TStrings object is supported which is used by for example th' +
'e List and Combo boxes. It is possible to translate individual i' +
'tems as well as the whole list. Please switch language to see ho' +
'w the lists is updated below.'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 184
Top = 112
Width = 153
Height = 45
Alignment = taCenter
AutoSize = False
Caption = 'Right click here to show the Popup Menu list'
PopupMenu = PopupMenu1
end
object ListBox1: TListBox
Left = 12
Top = 148
Width = 141
Height = 69
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'Apples'
'Orange Juice'
'Lingon berry'
'Wild strawberries')
TabOrder = 0
end
object ComboBox1: TComboBox
Left = 12
Top = 112
Width = 141
Height = 21
Style = csDropDownList
Color = clBtnFace
ItemHeight = 13
Items.Strings = (
'Apples'
'Orange Juice'
'Lingon berry'
'Wild strawberries')
TabOrder = 1
end
object MultLang1: TMultLang
Left = 332
Top = 72
Width = 33
Height = 22
AlignIcon = alLeft
AlignText = alLeft
IconMargin = 1
ItemHeight = 16
Items.Strings = (
'English'
'Swedish')
ShowIcons = False
Text = 'English'
ResizeIcon = False
TextMargin = 5
DefaultLanguage = 'English'
LanguageFile = '%EXEPath%Mdiapp.lan'
LanguagesData = {}
end
object PopupMenu1: TPopupMenu
Left = 184
Top = 140
object Apples1: TMenuItem
Caption = 'Apples'
ShortCut = 0
end
object OrangeJuice1: TMenuItem
Caption = 'Orange Juice'
ShortCut = 0
end
object Lingonberry1: TMenuItem
Caption = 'Lingon berry'
ShortCut = 0
end
object Wildstrawberries1: TMenuItem
Caption = 'Wild strawberries'
ShortCut = 0
end
end
end